home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / QS2.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  31 lines
  1. 0  TEXT : HOME 
  2. 9  PRINT : PRINT : PRINT 
  3. 10  PRINT "Where would you weigh the most?"
  4. 12  PRINT : PRINT 
  5. 14  PRINT "     a)  On top of Mount Everest"
  6. 15  PRINT 
  7. 16  PRINT "     b)  At the lowest point in Death            Valley"
  8. 17  PRINT 
  9. 18  PRINT "     c)  In the cornfields of the                Midwest"
  10. 19  PRINT 
  11. 20  PRINT "     d)  I need a hint"
  12. 21  PRINT : PRINT 
  13. 30  GET KY$
  14. 39  HOME : PRINT : PRINT : PRINT : PRINT : PRINT 
  15. 40  IF KY$ = "c"  OR KY$ = "C"  THEN  GOSUB 100
  16. 50  IF KY$ = "a"  OR KY$ = "A"  THEN  GOSUB 110
  17. 60  IF KY$ = "b"  OR KY$ = "B"  THEN  GOSUB 120
  18. 70  IF KY$ = "d"  OR KY$ = "D"  THEN  GOSUB 130
  19. 80  IF KY$ < >"a"  OR KY$ < >"A"  OR KY$ < >"b"  OR KY$ < >"B"  OR KY$ < >"d"  OR KY$ < >"D"  THEN  GOSUB 140
  20. 100  PRINT "No, try somewhere closer to the center  of the Earth."
  21. 102  GOSUB 200: GOTO 0: RETURN 
  22. 110  PRINT "No, you would be the weigh the least    there.  Try again."
  23. 112  GOSUB 200: GOTO 0: RETURN 
  24. 120  PRINT "Right!!  Because the effect of GRAVITY  is stronger the closer you are to the   center of the Earth.  Let's go on to    the next question."
  25. 122  GOSUB 300: PRINT  CHR$(4);"run qs3"
  26. 130  PRINT "Remember, the greater the gravitational pull, the more you weigh."
  27. 132  GOSUB 200: GOTO 0: RETURN 
  28. 140  PRINT "Please enter only A, B, C, or D!!"
  29. 142  GOSUB 200: GOTO 0: RETURN 
  30. 200  FOR I = 0 TO 3500: NEXT : RETURN 
  31. 300  FOR I = 0 TO 4500: NEXT : RETURN